home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / hellbbs / scripts / terminal.scr < prev   
Encoding:
Text File  |  1996-04-12  |  284 b   |  22 lines
  1. cls
  2. localecho only
  3. print "Just type ### to quit"
  4. carrcheck off
  5. rb="   "
  6. do
  7.     localscan lk
  8.     if lk<>""
  9.         localecho off
  10.         send lk
  11.         localecho only
  12.         rb=lk+left(rb,2)
  13.     endif
  14.     exif rb="###"
  15.     do
  16.         remotescan rk
  17.         exif rk=""
  18.         send rk
  19.     loop
  20. loop
  21. localecho on
  22. carrcheck on